home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / share / ss / ct_c.sed < prev   
Encoding:
Text File  |  2005-10-13  |  2.2 KB  |  161 lines
  1. #
  2. # This script parses a command_table file into something which is a bit 
  3. # easier for an awk script to understand.
  4. #
  5. # Input syntax: a .ct file
  6. #
  7. # Output syntax:
  8. # (for the command_table line)
  9. #    command_table  <command_table>
  10. #
  11. #(for each request definition)
  12. #    BOR
  13. #    sub: <subroutine name>
  14. #    hlp: <help text>
  15. #    cmd: <command>
  16. #    opt: <option>
  17. #    EOR
  18. # (there may be more than one 'cmd' or 'opt' line
  19. #
  20. # A number sent to the output represents a parse error --- it will be 
  21. # followed by the next line which will have the form:
  22. #    ERROR: <error text>
  23. #
  24. # The design of this output syntax is such that it should be easy for
  25. # an awk script to parse.
  26.  
  27. #
  28. # The first section of this script is just to cannoicalize the file.  
  29. # It removes comments, and puts each command_table request onto a single
  30. # line
  31. #
  32. :FIRST
  33. y/    / /
  34. s/^ *//
  35. s/#.*$//
  36. /; *$/!{
  37. N
  38. y/    / /
  39. s/\n */ /
  40. bFIRST
  41. }
  42. s/, */, /g
  43. #
  44. # Now we take care of some syntatic sugar.....
  45. #
  46. /^unimplemented/ {
  47.     s/^unimplemented [A-Za-z_0-9]*/request ss_unimplemented/
  48.     s/;/, (dont_list, dont_summarize);/
  49. }
  50. /^unknown/ {
  51.     s/^unknown /request ss_unknown, "", /
  52. }
  53. #
  54. # Dispatch based on the keyword....  illegal keywords are prefixed by ERROR:
  55. # and are handled by the awk script.
  56. #
  57. /^command_table /bCMD
  58. /^request /bREQUEST
  59. /^end;/bEND
  60. s/ .*//
  61. s/^/ERROR: unknown keyword: /
  62. =
  63. b
  64. #
  65. # Handle the command_table keyword
  66. #
  67. :CMD
  68. s/;$//
  69. p
  70. d
  71. b
  72. #
  73. # Handle the request keyword --- this is the heart of the sed script.
  74. # 
  75. :REQUEST
  76. s/^request *//
  77. h
  78. i\
  79. BOR
  80. # First, parse out the subroutine name
  81. s/^/sub: /
  82. s/,.*//
  83. p
  84. # Next, parse out the help message, being careful to handle a quoted string
  85. g
  86. s/^[^,]*, *//
  87. h
  88. /^"/ {
  89.     s/^"//
  90.     s/".*//
  91.     x
  92.     s/^"[^"]*", *//
  93.     x
  94.     b EMITHLP
  95. }
  96. s/[^a-zA-Z0-9].*//
  97. x
  98. s/[a-zA-Z0-9]*, *//
  99. x
  100. :EMITHLP
  101. s/^/hlp: /
  102. p
  103. # Next take care of the command names
  104. :CMDLIST
  105. g
  106. /^(/b OPTIONS
  107. /^;/b EOR
  108. /^"/ {
  109.     s/^"//
  110.     s/".*//
  111.     x
  112.     s/^"[^"]*"//
  113.     s/, *//
  114.     x
  115.     b EMITREQ
  116. }
  117. s/[^A-Za-z_0-9].*//
  118. x
  119. s/[A-Za-z_0-9]*//
  120. s/, *//
  121. x
  122. :EMITREQ
  123. s/^/cmd: /
  124. p
  125. b CMDLIST
  126. #
  127. # Here we parse the list of options.
  128. #
  129. : OPTIONS
  130. g
  131. s/^(//
  132. h
  133. : OPTLIST
  134. /^)/ b EOR
  135. /^[^A-Za-z_0-9]/ {
  136.     =
  137.     c\
  138. ERROR: parse error in options list
  139. }
  140. s/[^A-Za-z_0-9].*//
  141. x
  142. s/[A-Za-z_0-9]*//
  143. s/, *//
  144. x
  145. s/^/opt: /
  146. p
  147. g
  148. b OPTLIST
  149. : EOR
  150. c\
  151. EOR\
  152.  
  153. d
  154. b
  155. #
  156. # Handle the end keyword --- it's basically ignored.
  157. #
  158. :END
  159. d
  160. b
  161.